﻿Imports CrystalDecisions.Shared
Public Class frmVisorBusARangoID
    Dim idDVID As New ParameterDiscreteValue
    Dim idDV2ID As New ParameterDiscreteValue
    Public aidPagoID As Integer
    Public aidPagoID2 As Integer
    Private Sub frmVisorBusARangoID_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim rptbus As New rptBusPagoARangoID
        idDVID.Value = aidPagoID
        idDV2ID.Value = aidPagoID2
        rptbus.DataSourceConnections(0).SetConnection("Driver={MySQL ODBC 5.2a Driver};Server=localhost;Port=3306;", "bdCoprevi", "root", "123456")
        'CTM QUE ME COSTÓ ENCONTRAR EL STRING DE CONEXION
        rptbus.SetParameterValue(0, idDVID)
        rptbus.SetParameterValue(1, idDV2ID)

        crvBuscador.ReportSource = rptbus
    End Sub
End Class